## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"
| Country_Region | Deaths |
|---|---|
| United States | 230548 |
| Brazil | 159884 |
| India | 122111 |
| Mexico | 91753 |
| United Kingdom | 46555 |
| Italy | 38618 |
| France | 36494 |
| Spain | 35878 |
| Iran | 34864 |
| Peru | 34411 |
| Colombia | 31598 |
| Argentina | 31002 |
| Russia | 27787 |
| South Africa | 19276 |
| Chile | 14207 |
| Indonesia | 13869 |
| Ecuador | 12670 |
| Belgium | 11625 |
| Iraq | 10910 |
| Germany | 10483 |
| Country_Region | Weighted_Deaths |
|---|---|
| San Marino | 1249 |
| Peru | 1055 |
| Belgium | 1007 |
| Andorra | 967 |
| Spain | 758 |
| Brazil | 753 |
| Bolivia | 750 |
| Chile | 730 |
| Ecuador | 720 |
| Mexico | 718 |
| United States | 697 |
| United Kingdom | 697 |
| Argentina | 683 |
| Moldova | 676 |
| Italy | 643 |
| Panama | 631 |
| Colombia | 627 |
| Sweden | 573 |
| France | 544 |
| Montenegro | 484 |
| Country_Region | Weighted_Confirmed |
|---|---|
| San Marino | 275.9 |
| Peru | 275.9 |
| Belgium | 372.0 |
| Andorra | 613.3 |
| Spain | 250.5 |
| Brazil | 260.8 |
| Bolivia | 121.9 |
| Chile | 262.2 |
| Ecuador | 95.6 |
| Mexico | 72.4 |
| United States | 276.1 |
| United Kingdom | 151.5 |
| Argentina | 257.2 |
| Moldova | 288.0 |
| Italy | 113.1 |
| Panama | 312.3 |
| Colombia | 213.2 |
| Sweden | 120.0 |
| France | 204.5 |
| Montenegro | 294.9 |
| Country_Region | Increase_Weighted_Deaths |
|---|---|
| Liechtenstein | 25.81 |
| Czech Republic | 16.17 |
| Belgium | 14.99 |
| Armenia | 13.84 |
| Montenegro | 11.26 |
| Slovenia | 10.97 |
| Poland | 7.30 |
| Moldova | 7.20 |
| Bosnia and Herzegovina | 6.60 |
| Georgia | 5.92 |
| North Macedonia | 5.78 |
| Tunisia | 5.47 |
| Jordan | 5.28 |
| Romania | 5.23 |
| Hungary | 5.22 |
| Bahamas | 5.14 |
| Italy | 4.95 |
| United Kingdom | 4.88 |
| Argentina | 4.63 |
| Iran | 4.60 |
| Country_Region | Increase_Weighted_Confirmed |
|---|---|
| Belgium | 14.66 |
| Andorra | 11.73 |
| Czech Republic | 10.68 |
| Slovenia | 8.60 |
| Armenia | 8.04 |
| Croatia | 6.82 |
| Austria | 6.00 |
| Bosnia and Herzegovina | 5.86 |
| Poland | 5.71 |
| Netherlands | 5.59 |
| Italy | 5.29 |
| France | 5.26 |
| North Macedonia | 5.22 |
| Liechtenstein | 5.16 |
| Slovakia | 4.71 |
| Georgia | 4.50 |
| Montenegro | 4.42 |
| Colombia | 4.11 |
| Hungary | 4.00 |
| Portugal | 3.89 |
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium","Spain","Greece","Sweden","Norway","Finland","United States")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Deaths")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Weighted_Deaths")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p